PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**FLE**]D**PASWRICHA 


PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR III CCCCCCCC HH HH AAAAAA 
PPPPPPPP AAAAAA SSSSSSSS_ WW WW RRRRRRRR LI! cccCCCCC OHH HH AAAAAA 
PP PP AA AA SS ww Ww RR DR II cc HH HH AA AA 
PP PP AA AA SS ww Ww RR RR II CC HH HH AA AA 
PP PP AK AA SS ww Ww RR KR Il CC HH HH AA AA 
pp PP AA AA SS ww WwW RR RR Il cc HH HH AA AA | 
PPPPPPPP AA AA SSSSSS WwW WW RRRRRRRR II CC HHHHHHHHHH = AA AA 
PPPPPPPP AA AA SSSSSS WwW WW RRRRRRRR II cc HHHHHHHHHH AA AA 
pp AAAAAAAAAA SS Ww WW Ww RR RR Il CC HH HH AAAAAAAAAA 

pp AAAAAAAAAA SS WW Ww WwW RR RR Il CC HH HH AAAAAAAAAA 
PP AA AA SS WWWWw WwWWw RR RR II cc HH HH AA AA eae 

pe AA AA SS WwWWw WwWWw RR RR II cc HH HH AA AA ppm ee 
pp AA AA SSSSSSSS WwW WW RR RR LIIIII CCCCCCCC HH HH AA AA piniet> 
PP AA AA SSSSSSSS WwW Ww RR RR eeeee CCCCCCCC «OHH HH AA AA aa 
LL III SSSSSSSS 

LL eeeee SSSSSSSS 
LL I] Ss 
LL I] SS 
LL I] ss 
LL 1] Ss | 
LL II SSSSSS | 
LL I] SSSSSS 

LL I] Ss 

LL I] Ss 
LL II SS 
LL II $s 
LLLLLLLLLL III SSSSSSSS 
LLELLLLLLLL eeeee SSSSSSSS 


Be Se Se Be Se Se Be Ge Se Ge Fe Be Se Be Gee Ge Be Oe Os Oe Os Bs Se Be Be Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se HSH Sees eee 
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PASSWRITE_CHAR Write a character 16-Sep-1984 0 1:00 AX-11 BLi a8; -32 V 
52:04 C PASWRI 


ew wee lololololololololololololololelololelolololololololo) 


S&F EWN WAWNWAAIAIAIR PI NIPINPINONININID 2 OO OS S| SS COCOOOOOOCO 
WN OS OONAULS WN 9 OONAU EWN HO OONAOUE WN OOODNOUS Wr 


DWNOUES WN —OOODNAMUEWN "OO ONAOUSWN ("OD ODNAUESWN SOO ONOULS WH 


BREE EEE BANANA POPPIN PNOPNUDS 2 Ss OS 


Pet 
14-Sep-1984 12: PASRTL.SR CHA.B32;1 (1). 


MODULE PASSWRITE_CHAR ( HITE ‘Write a character’ 
ID DEN NT = '1=003' ' File: PASWRICHA.B32 Edit: 0G1003 


BEGIN 


LRA RARER EERE ERR ERA E EERE EEE EEE EERE EERE AREER EEE 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


is hale i irri iy FURNISHED rr tee LICENSE AND MAY BE USED - cor tee 
:® ONL E THE TERMS OF LICENSE AN 
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=) 
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ne 
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6 

1 

1 

1 

1 * 

1 « 

1 * 

1 

1 * 

1 * 

1 * 

1 ® 

1 ea 

1 i . 

it TRANSFERRED. * 

* 

1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

1 is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

it CORPORATION. . 

4c 

1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
x 

1 * 

LL RRR RRR AR ERE ERE TERE E ERR E RE RA RR E RRR E RE RERRERE 

7% 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


+ 
FACILITY: Pascal Language Support 


ABSTRACT: 


This module contains a procedure which writes a character 
to a textfile. 


ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 

1-001 = Original. SBL 1-April-1981 


1-002 - Make total-width a longword. SBL 29-Jun-1982 
1-005 - If field Length is zero, don't write character. DG 21-Dec-1983 


Re Be Se Be we Be Be Be Be Be Be Be Be Se Be BH Se Se Se Be Se Se Ge Se Be Se Se Se Se SH He ee FH Se Se HSH SH Se Se Fe Se Se ae Se Se Se Se Se ee Se Se Se Se SH Be oe 


—— 
*. 


ICHA.B32 


4 


>a 


CHAR Write a character 
Declarations 


WRITE 


3 


30 


<i 
a- 


La) 
aw 
‘= 
P= 
cs 
v 
S 
fee 
~ 
nw 
os 
nw 
—_ 
vv 
ud 
w” 
a 
ow 
mn a 
wo —_ 
= —-O 
Cc -c 
— er 
—) xe 
ow 
. ~n 
w 
~ oo 
«o ww 
c 
. o@ 
a rd 
~ -—-- 
= == 
w 33 
*. 
ew 
w> 
“. — ad 
- =. 4 
o =<z<> 
ee oO >o 
” = o2 
- 2 oO =z 
“nn oO a a7 oe 
Cc 7 a. ” = 
o fe ” _ ea ed 
— =< z <x ” 
-~ 2 a w ze | 
o - °* _ ww ft oO 
uw za z z oC 2 se 
o w _ oO om w 
~~ a = 7 eee uw > w w oOo ua 
re) - Dee - *& & — oa ae 
eo w ae aw occ Oo o o ae oso 
ao += 2 Baa em 2&2 & «= 2 & & 
- oO ARM w” w ” 
oO uw w aounwm oO Lo a ” 
— ad < i aac < <t _) 
- © _ @ <zaa v > [ve) 2 
-_- &£ P J <= =z =< oS -_ zs 
o a So - [- 4 = w ive oO 
” [ve] oO 
pe--—--- ae <-----: “ Semrwrmrmemre sere sesermowrmsmomess 
LLL LLL LLL LLCO OOO LL 
DOK MUM TORO CUM TNOPR- DHOOM TNOR- OOO CUM 
FDDDDD ICI CUCM MIAMI PMI PIMP) AT AT AT OT 
COOCOOCOCCOCK KKK KKK KC CC CC CC CC CC CC CCK 
joleleleleleleleleleleleleleleleleleleleleleleleleleoleloleolelolo) 
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PASSWRITE_CHAR Write a character 16- Se 0 18:00 AX-11 st itunes Page 3 
1-003 ASSWRITE_CHAR = Write character to textfile 14-Sep-1984 12:52:04 PASRTL.SRCJPASWRICHA.B32;1 (3). 
BS 144 1 XSBTTL 'PASSWRITE_CHAR = Write character to textfile’ | 
84 145 GLOBAL ROUTINE PASSWRITE_CHAR ( 
85 146 PFV: REF S$PASSPFV_!ILE_VARIABLE, ' File variable 
86 147 CHARACTER: BYTE ! Character to write 
87 148 TOTAL_WIDTH: SIGNED, i Total field width 
88 149 ERROR ! Error unwind address 
89 150 ): NOVALUE = 
90 151 
91 126 '44 
a 27 ! FUNCTIONAL DESCRIPTION: 
3e 132 This procedure writes a single character to the specified textfile. 
96 i CALLING SEQUENCE: | 
98 CALL PASSWRITE_CHAR (PFV.mr.r, CHARACTER.rc.v, TOTAL_WIDTH.rl.v 
+4 C, ERROR.j.rJ) 
i FORMAL PARAMETERS: 
PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. | 
CHARACTER - The single character to write. | 
TOTAL_WIDTH - Total field width. 
ERROR - Optional. If specified, the address to unwind to 


in case of an error. 


NONE 
i IMPLICIT OUTPUTS: | 
NONE | 
i ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
i SIGNALLED ERRORS: 


LINTOOLON = Line too tong ee 5 2 
NEGWIDDIG - Negative width or digits specification is not allowed 


\ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
BEGIN 


LOCAL 
FCB: REF $SPASSFCB_CONTROL_BLOCK,! File Control block 


pele le lel ele le lala leololel aloo ole ln lo lelolal ol alololeleleleolelelelelelolololololelololelel ool ool ale ooo) oo Ma: 


™m 


ee ee ee Le LLL EE Ee eee eee eee eee Se S| 


WWWw WWIAIPIRIPOPIPININPINININ 2 3 OO OS SS SOOO CVOOCOOCOO 


13 
ter 1b-Se -1984 02:16:00 AX-11 Bliss-32 V4.0-74 P 4 
- Write character to textfile a aets 95:48:98 PASRTL.SRCJPASWRICHA 88251 — 


! Total width of field 
LE, ' Enable argument 

UNWIND_ACT: VOLATILE, ! Enable argument 
TILE; ! Enable argument 


BUILTIN 
ACTUALCOUNT; ! Count of arguments 


ENABLE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
4+ 
Get ERROR parameter, if present. 


‘ IF ACTUALCOUNT () GEQU 4 
ERROR_ADDR = .ERROR; ' Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


14 
Validate PFV and get PFV. 


a 
] 

; 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

| 
é PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
2 '+ 

§ Set unwind action to unlock file. 
§ ! 

§ UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 

2 '+ 

3 Do common initialization. 

: ! 

§ PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 
2 

2 

; 

2 

; 

; 


'¢ 
Check for invalid width. 


WR — OO OONAUE WN 0 OONOA UE WN 0 OONOUSWR OVO ONOUESWH Oo 


TOTAL_WIDTH LSS 0 
SPASSIO_ERROR (PAS$_NEGWIDDIG,0); 


If . 
THEN 
'¢ 


See if we have enough room in the record. 


FIELD_WIDTH = .TOTAL_WIDTH; 


TPOIPIPIPINPIPIPINGAINIAINNYNYININININININPINIPININININI NIN PONIPONNPON No No NPN NoNoNononponononononononofronofpononornyd 


MEWN—OOOnoOur 
Na ee ee ee eee ee eww wie fol ololololelololololololololololololololololololololololo mm’) 


; 
3; (7 
; 7 
“Se 
3. ¥ 
; 3 
As 
eo5 
9 
cae 
a 
.23 
; ¥ 
Sh 
3 7 
9 
3; 7 
s 7 
a 
s 3 
Po 
3% 
.% 
ae 
a 
:.% 
. 3 
. 3 
cy 
“ta 
3; (7 
BS 
eS 
Be | 
eh 
3; 3 
aoe 
_ 
3; 7 
; 4 
; 7 
1% 
so 7 
4 
=e 
s 
. 3 
2. y 
4 
a 
ae 
ee 
; 7 
Se 
ee 
; 4% 
s 1 


Fe DNR EO ted try tet epert PI P A t  irt t tth ae t ey  H S 


EXTRA; ' Extra characters pest end o ine 
EXTRA = (.FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH 


f lin 
- .FCB CFCBSA_RECORD_END); 


PASSURITE.. CHAR priate 


URIS eS & 
— 

DONA EW OODNANE WWI ODR SOAR AN OOOO “8 
Rerototoror enone Oe 
sO COCO COCO OO COCO OCOOD ONIN NI SIN NIN NINA AAAAAAGAOUIN 
SOWNAUES WN | SD ODNAOU EWN HC OONAUES WN —OOW ¢ 


MPP NoNonononofer ofororororonorny 


cnaR. - S urite character to textfile 
-EXTRA GTR O 
. SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 


-FIELD_WIDTH = 1 GEQ 0 
THEN 


t Move leading blanks, if any 
FCB CFCBSA_RECORD_CUR] = 
i Move character to buffer 
CHSWCHAR_A (. CHARACTER, 


i Call WRITE epilogue routine to move the last character written to the 


£ user's buffer and to wnlock the file variable. 


PASSSEND_WRITE (PFV CPFVSR_PFVI, 


VAX=-11 Bliss-32 V4.0-74 
CPASRTL.SRCJPASWRICHA. 


CHSFILL (%C° *, .FIELD_WIDTH = 1, .FCB CFCBSA_RECORD_CUR)); 


FCB CFCBSA_RECORD_CUR)); 


FCB CFCBSR_FCB)); 


routine PAS$WRITE_CHAR 

PassuTt TE CHAR Write a character 

\1-003\ 

PASSWRITE_CHAR, PASSWRITEV_CHAR 

HANDLER 

SINIT_WRITE 

SSSSTONAL, PASS$K _NEGWIDDIG 
NTOOLON 

passe Ul WRITE 


PASSCODE ,NOWRT, 
PASSWRITE - Save R2,R3,R4,R5,R6,R7,R8 


58 000000006 
5E 


6D 
04 


6E 


o-oo nooon 
OmM—MO Srominr 


COoooooooeo 


ooCcoooooo 
CoOoooocoooeo 
—— - OOCOo 
DON—MOONWMO 


ERROR, ERROR_ADDR 


; Routine Size: 164 bytes, Routine Base: _PAS$CODE + 0000 


Be 
2 1 !<BLF/PAGE> 


3 
PASSWRITE_CHAR Write a character 18-5¢ =1984 0 AX-11 Bliss-32 V4.0-74 Page 6 
1-003 PASSURITE_CHAR = Write character to textfile 14-8 On 1 984 93: 58:02 PASRTL. SRC PASWRICHA B82; 1 (3) | 
56 04 AC DO QOOIF 18: MOVL PV, RG ; 0220. : 
08 AE 56 DO 69 ; MOVL : ; 
000000006 00 16 000 JSB PASSSVATIDATE PFV >; 0226 | : 
04 AE 1 DO 00020 MOVL UNWIND ; 0232 ; 
000000006 00 16 00031 JSB PASSSINIT GRITE > 0238 : 
OC AC D5 00037 TSTL TOTAL_WIDTH > 0204 | ; 
QA 18 0003A BGEG §=_ 2$ : | : 
E 4 0005¢ CLRL_ = (SP) ; 0246. : 
7e 006 8F 9A 000 MOVZBL M#PASSK_NEGWIDDIG, -(SP) : ; 
68 02 FB 0004 CALLS #2, PASSS$SIGNAL : : 
5 o¢ At D0 0046 28: —~ROVL TOTAL WIDTH. FIELD WIDTH : 0252 : 
50 38 PE AP Ct OOOGA ADDL3 (FCB), F HELD. IBTH, ; 0257 | ; 
50 FO A? Ce 00045 SUBL2 ~FecrCB), EXTRA~ : : 
OC 15 00053 LE 3$ ; 0258 : 
50 DD 00055 PUSHL EXTRA ; 0260, : 
01 DD 00057 PUSHL #1 : | ; 
7E 00G 8F 9A 00059 MOVZBL #PASSK_LINTOOLON, -(SP) : : 
68 03 FB 0005D CALLS #3, PASSSSIGNAL : | : 
04 00060 ET : : 
52 D5 00061 3$: TSTL FIELD_WIDTH > 0263) ; 
15 15 00063 BLE} 4$ ; | : 
52 D7 00065 DECL. Re ; 0271 ; 
52 20 6E 00 2C 00067 MOVCS #0, (SP), #32, R2, a-20(FCB) ; ; 
EC 8B? 0006C 3 | ; 
EC AT 53 DO O006E MOVL 3, -20(FCB ; | : 
ac Of 08 AC 90 00072 MOVB CHARACTER, 3-200 CB) : 0277) ; 
EC A? D6 00077 INCL =20(F CB) : : 
000000006 00 16 OO07A 4s: JSB PASSSEND_WRITE > 0286 | ; 
04 00080 RET ; 0290 | ; 
0000 00081 5$: -WORD Save nothing ; 0197 3 
50 08 AC DO 00083 MOVL 8(AP), RO : ; 
50 04 Ad DO 00087 MOVL  4(RO), RO : ; 
F4 AO 9F 00088 PUSHAB ERROR_ADDR : ; 
FB AQ 9F OO08BE PUSHAB UNWIND ACT ; : 
FC AQ 9F 00091 PUSHAB PFV_ADDR § : 
03 DD 00094 PUSHL #3 ; | r 
SE DD 00096 PUSHL SP ; | ; 
7e 04 AC 7D 00098 mova  4(AP), =< ; | ; 
000000006 00 03 FB 0009¢ CALLS #3, PASSSIO_HANDLER : | : 


H 13 
PASSWRITE_CHAR e ach 19° Sep-1984 0 AX=11 Bliss-32 V4.0-74 Pa 7 
1-003 WRITEV oCHARS - write character to string 14- 8ep-1984 93: 43: be PASRTL™ SR ROIP ASWRICHA.BS2:1 sie (4). 
ZSBTTL 'PASSWRITEV_CHAR - vrize character to string’ 
GLOBAL ROUTINE PASSWRITEV_C ( 
LENGTH ! Maximum Length “ string 
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wo 
STAIR. LINE: REF VECTOR C, WORD], 
TOTAL. WIDTH: SIGNED, 
) : NOVALUE = 


' 

! String to write to 

' Value to thy 

' Total field width 

' Error unwind address 


++ 
FUNCTIONAL DESCRIPTION: 

This procedure writes a character to the specified string. 
CALLING SEQUENCE: 


CALL PASSWRITEV_CHAR (MAX_LENGTH.rw. , STRING _LINE.wvt.r, 
VALUE.rbu.v, TOTAL_WIDTH.rl.v Et ERROR. j.rJ) 


FORMAL PARAMETERS: 


OODOODOCOCOCOCWOOOOOOO vw 


DOONAN WN 0 OD NO UE WIN (OVO ONOAUESWIN 0 ODNAUE WN S(O OONAYV EWN "OOONAOVUIESW Wee 


MAX_LENGTH - The maximum Length of STRING_LINE. 
STRING_LINE - A varying string to which the output will be appended. 
VALUE - The value to write. 
TOTAL_WIDTH - The width of the field to write. 
ERROR - Optional. If specified, the address to unwind to 
in case of an error. 
6 IMPLICIT INPUTS: | 
NONE | 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


SIGNALLED ERRORS: 
See PASSWRITE_CHAR 


09 09 09 09 SI NINN IN NNSA AAAAAAAAMMIMMIMNMIUIUII SS BE BE EEE PUW 
WR 9 OONOAU EWN 0 ODNAUE WN HO ODNAUE WN SO OONAUES WN" ODOONAUEW 


WA AIAIA AAAI ANIA AIAN AIAN NINN AIA ANNAN ANIN AINA 


SGOOOCOOCOOCOCOCOCOCOCOCOC COSCO OSOSOSS COCO COSOOCCOOCCOOCOOCOOCOOCOCOCOOCOOOOOCOCOCOO (VE 
BREE EE EE & FAWN AWIAI AIR POPOPINPININININPNDY 2 2 OO SOO oO 


RIPDPIPIPINDANGNDNYNINIDDPYNDNYNINYDININPININPINININININI NINN NOP NPI NON NoNNOPoPoNoNonofonononyd 


84 

85 oo 

86 

87 BEGIN 
88 

89 3 LOCAL 
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PASSWRITE_CHAR Brite a charac Ll -1984 02:16:00 AX-11 Bliss-32 V4.0-74 Page 8 
1-003 PASSWRITEV V CHARS - © write character to string 12286871 982 95:48:80 PASRTL. SRCIP ASWRICHAB92:1 7 (4) 
; 90 20 PFV: SPASSPFV fat E ay bi ' Pascal File Variable 
; 291 1 ARG_LIST: VECTOR [%, LONGI, ' Argument List 
; 2 26 PFV-ADDR: vBLA TILE, ! Enable argument 
; 29 UNWIND_ACT: VOLATILE, i Enabie argument 
3 3e 0 ze ERROR_ADDR: VOLATILE; i Enable argument 
; 296 6 2 BUILTIN 
3 44 ef ACTUALCOUNT; ! Count of arguments 
; 299 b828 ENABLE 
$ So oee0 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; 0364 1+ 
; ww 036 ! Get ERROR parameter, if present. 
3; 304 0364 !- 
; 305 Bee? 
: 306 366 § IF ACTUALCOUNT () GEQU 5 
: 307 0367 i 
; 308 0368 2 ERROR_ADDR = .ERROR; ! Set unwind address 
; 309 0369 2 
; 310 0370 2 PFV_ADDR = PFV CPFVS$R_PFV); ! Set PFV address 
g 6S 0371 2 
; 21§ B36 2 + 
s 6B 03735 2 ' Set up ARG_LIST. 
3 316 0374 2 !- 
3 313 0375 2 
s Sv 0376 2 ARG_LIST (0) = 3; ! Three arguments 
s ZV 0377 2 ARG_LIST (1) = Pry CPFVS$R _PFVI; ! PFV address 
; 318 0378 2 ARG_LIST ¢] = VALUE; ! Value to write 
; 319 0379 2 ARG_LIST £3] = . TOTAL. WIDTH; 
; 320 0380 2 
g Sel 0381 2 '¢ 
3s wee sat 2 i Call PAS$S$DO_WRITEV to do the work, giving it the address of 
3 Bee 0383 2 ! PASSWRITE_CHAR to call. 
; 324 0384 2 ie 
3 hes 0385 2 
3 32 0386 2 PAS$$D0_WRITEV (PPV CPFVSR_PFV], .MAX_LENGTH, STRING_LINE (0J, ARG_LIST, 
3 URer 0387 2 PASSWRITE_CHAR); 
3 Seo 0388 2 
3 Sev 0389 2 RETURN; 
s 30 0390 2 : 
s 5a 0391 +1 END; ! End of routine PASSWRITEV_CHAR 
~-EXTRN PASSSDO_WRITEV 
007C 00000 ENTRY 1 ye Nie CHAR, Save R2,R3,R4,R5,R6 ; 0294 
5E 8 C2 00002 SUBL2 #40, 3 
E be 00005 CLRL ERROR ADDR : 0347 
9 AE C 00007 CLRQ ay re) ACT ; 
6D 0039 CF DE QOOOA MOVAL 3 
05 6C 91 90008 MP3 ab) ; 0366 
04 1F 00012 BLSSU : 
6E 14 AC 00 00014 MOVL ERROR, ERROR_ADDR ; 0368. 
08 AE “us i 90018 1$ MOVAB FV, PFV_ADDR : 0370. 
0c AE 03 pO 00010 MOVL #3, ARG ‘cist 3 0376 
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| SASSURITE CHAR Write a charact 16-Sep-1984 02: +00 AX-11 Bliss-32 V4.0-74 Page 9 
1-003 PASSURITEV. CHARS ~ © write character to string 14- ats yi 95:48:6 : PASRTL.SRCJPASWRICHA.B832;1 . (4) | 
10 AE 1c «AE 9 09 1 MOVAB pr ARG_LIST+4 3 0377. 
14 Ag C AC 7D 00026 MOVQ VALUE, ARG_LIST+8 ; 0378 
5 FF2D CF 9E 00028 MOVAB PASS RITE HAR, RS + 0386, 
54 C AE 9E 00030 MOVAB ARG_LIST,~ : | 

28 1 AE 4 0034 MOVAB PFV : 
5 08 Ac p 909 8 MOVL STRING LINE, R3 : 
52 04 aC 3C 0003C MOVZWL MAX_LENGTH, R2 3 | 
000000006 00 16 99040 JSB PASSS$DO_WRITEV : | 
04 0046 RET ; 0391) 
0000 9 2s: - WORD seve nothing 3; 0347) 
50 08 AC 00 00049 MOVL 8 AP), RO : 
50 046 AO +4 0040 MOVL (RO), RO ; 
D4 AO 9F 00051 PUSHAB ERROR’ ADDR : 
D8 AO 9F 00054 PUSHAB UNWIND ACT : 
DC «AO 9F 00057 PUSHAB PFV_ADBR : 
03 DD OOOSA PUSHL #3 F 
5E bo 0005¢ PUSHL $F 3 

7E 06 =A D 0005 MOVa 4(AP), -(SP) 3 

000000006 00 03 FB 0006 CALLS #3, PAS$$IO_HANDLER : 

04 00069 RET : 

; Routine Size: 106 bytes, Routine Base: _PASSCODE + O0A4 


2 O36 1 
3 0395 1 !<BLF/PAGE> 
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Memory Used: 84 pages 
Compication Complete 


PASSWRITE_CHAR Write a characte 16-Sep-1984 0 0 AX-11 Bliss-32 V4.0-7 Pa 1 
1-003 PASSURITEV. CHAR. - © write character to string 14-Sep att 7 0: 58: be PASRTL.SRCJPASWRICHA. 5 231 - (5 
: 336 0395 | ! END ! End of module PASS$SWRITE_CHAR 

; 3 7 0396 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _PASSCODE 270 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

; omesanem TyGRGlg Srosesce Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 96 22 33 00:00.4 

: COMMAND QUALIFIERS 

: FEES PCE EEO ET FELD SOE TEM, APT INSEE ASTROS /T AON, SSO PREECE SCRE SPREE MSRC$:PASWRICHA/UPDATE=(ENH$:PASWRICHA 

; 338 0397 0 

3; Size: 270 code + 0 data bytes 

3; Run Time: 00:07.2 

3; Elapsed Time: 00:22.9 

3; Lines/CPU Min: 3312 

3; Lexemes/CPU-Min: 12884 
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